home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Libraries / SAT 2.4.0 / SAT / SAT Think Lib ƒ / Compatibility / For Think P v3 / TP3extra.p < prev   
Encoding:
Text File  |  1995-03-30  |  346 b   |  18 lines  |  [TEXT/Rich]
  1. unit TP3extra;
  2.  
  3. interface
  4.  
  5. FUNCTION Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
  6.  
  7. implementation
  8.  
  9. FUNCTION _Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
  10.     INLINE $225F, $201F, $A1AD, $2288, $3E80;
  11.  
  12. FUNCTION Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
  13. begin
  14.     Gestalt := _Gestalt(selector, response);
  15. end;
  16.  
  17. end.
  18.